home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
archiver
/
unix
/
unz50p1.zoo
/
MAC
/
thinkc.hqx
/
unzip.thinkc.rsrc
/
CODE_1.txt
< prev
next >
Wrap
Text File
|
1992-05-21
|
53KB
|
961 lines
# near model CODE resource
# jump table entries: 0-9 (10 of them)
00000000 0000 0000 ori.b D0, 0x0
00000004 0000 0000 ori.b D0, 0x0
00000008 0000 0000 ori.b D0, 0x0
0000000C 0000 0000 ori.b D0, 0x0
00000010 0000 0000 ori.b D0, 0x0
00000014 0000 0000 ori.b D0, 0x0
00000018 0000 0012 ori.b D0, 0x12
export_0:
0000001C 4278 0A4A clr.w [0x00000A4A /* FPState */]
00000020 9DCE sub.l A6, A6
00000022 4EBA 0054 jsr [PC + 0x54 /* 00000078 */]
00000026 4EBA 0064 jsr [PC + 0x64 /* 0000008C */]
0000002A 2C3C 494E 4458 move.l D6, 0x494E4458 /* 'INDX' */
00000030 4EBA 073A jsr [PC + 0x73A /* 0000076C */]
00000034 47FA FFCA lea.l A3, [PC - 0x36 /* 00000000, value 0x0, cstring "" */]
00000038 268C move.l [A3], A4
0000003A 47FA FFC8 lea.l A3, [PC - 0x38 /* 00000004, value 0x0, cstring "" */]
0000003E 2684 move.l [A3], D4
00000040 4EBA 006C jsr [PC + 0x6C /* 000000AE */]
00000044 4EBA 03A2 jsr [PC + 0x3A2 /* 000003E8 */]
00000048 4EBA 07F2 jsr [PC + 0x7F2 /* 0000083C */]
0000004C 4EBA 00DE jsr [PC + 0xDE /* 0000012C */]
00000050 4EBA 00AA jsr [PC + 0xAA /* 000000FC */]
00000054 4267 clr.w -[A7]
00000056 4878 FFFF push.l 0xFFFF
0000005A 486F 0004 pea.l [A7 + 0x4]
0000005E 4857 pea.l [A7]
00000060 4878 0001 push.l 0x1
00000064 223A FFB2 move.l D1, [PC - 0x4E /* 00000018, value 0x12, cstring "" */]
00000068 4EBA 054E jsr [PC + 0x54E /* 000005B8 */]
0000006C 4EB5 1800 jsr [A5 + D1]
00000070 206D 006C movea.l A0, [A5 + 0x6C]
00000074 4E90 jsr [A0]
00000076 A9F4 syscall ExitToShell
fn00000078:
00000078 51F8 0A5E sf [0x00000A5E /* ResLoad */]
0000007C 7000 moveq.l D0, 0x00
0000007E 4EBA 04C6 jsr [PC + 0x4C6 /* 00000546 */]
00000082 6706 beq +0x8 /* 0000008A */
00000084 4A90 tst.l [A0]
00000086 6702 beq +0x4 /* 0000008A */
00000088 A049 syscall HPurge
label0000008A:
0000008A 4E75 rts
fn0000008C:
0000008C 2038 0A78 move.l D0, [0x00000A78 /* ApplScratch */]
00000090 660E bne +0x10 /* 000000A0 */
00000092 2C3C 5A4F 4E45 move.l D6, 0x5A4F4E45 /* 'ZONE' */
00000098 4EBA 06D2 jsr [PC + 0x6D2 /* 0000076C */]
0000009C 200C move.l D0, A4
0000009E 6006 bra +0x8 /* 000000A6 */
label000000A0:
000000A0 2640 movea.l A3, D0
000000A2 202B 0020 move.l D0, [A3 + 0x20]
label000000A6:
000000A6 47FA FF60 lea.l A3, [PC - 0xA0 /* 00000008, value 0x0, cstring "" */]
000000AA 2680 move.l [A3], D0
000000AC 4E75 rts
fn000000AE:
000000AE 2C3C 4441 5441 move.l D6, 0x44415441 /* 'DATA' */
000000B4 4EBA 06B6 jsr [PC + 0x6B6 /* 0000076C */]
000000B8 204C movea.l A0, A4
000000BA 2278 0908 movea.l A1, [0x00000908 /* CurStackBase */]
000000BE 2004 move.l D0, D4
000000C0 A02E syscall BlockMove/BlockMoveData
000000C2 4EBA 076A jsr [PC + 0x76A /* 0000082E */]
000000C6 47FA FF48 lea.l A3, [PC - 0xB8 /* 00000010, value 0x0, cstring "" */]
000000CA 2684 move.l [A3], D4
000000CC 2C3C 5354 5253 move.l D6, 0x53545253 /* 'STRS' */
000000D2 4EBA 0698 jsr [PC + 0x698 /* 0000076C */]
000000D6 47FA FF34 lea.l A3, [PC - 0xCC /* 0000000C, value 0x0, cstring "" */]
000000DA 268C move.l [A3], A4
000000DC 2C3C 4452 454C move.l D6, 0x4452454C /* 'DREL' */
000000E2 4EBA 0688 jsr [PC + 0x688 /* 0000076C */]
000000E6 204C movea.l A0, A4
000000E8 2004 move.l D0, D4
000000EA 670C beq +0xE /* 000000F8 */
label000000EC:
000000EC 4EBA 02AE jsr [PC + 0x2AE /* 0000039C */]
000000F0 0480 0000 000C subi.l D0, 0xC
000000F6 66F4 bne -0xA /* 000000EC */
label000000F8:
000000F8 4EFA 0734 jmp [PC + 0x734 /* 0000082E */]
fn000000FC:
000000FC 4E56 FFDA link A6, -0x0026
00000100 41F8 0910 lea.l A0, [0x00000910 /* CurApName */]
00000104 224F movea.l A1, A7
00000106 7020 moveq.l D0, 0x20
00000108 A02E syscall BlockMove/BlockMoveData
0000010A 7001 moveq.l D0, 0x01
0000010C D011 add.b D0, [A1]
0000010E 5A11 addq.b [A1], 5
00000110 D2C0 add.w A1, D0
00000112 41FA 0012 lea.l A0, [PC + 0x12 /* 00000126, value 0x2E727372 '.rsr', cstring ".rsrc" */]
00000116 7005 moveq.l D0, 0x05
00000118 A02E syscall BlockMove/BlockMoveData
0000011A 558F subq.l A7, 2
0000011C 486F 0002 pea.l [A7 + 0x2]
00000120 A997 syscall OpenResFile
00000122 4E5E unlink A6
00000124 4E75 rts
00000126 2E72 7372 6300 47FA 07F6 movea.l A7, [[A2 + 0x630047FA] + 0x7F6]
// begin alternate branch 0000012C-00000130
fn0000012C:
0000012C 47FA 07F6 lea.l A3, [PC + 0x7F6 /* 00000924, value 0x0, cstring "" */]
// end alternate branch 0000012C-00000130
fn0000012C: // (misaligned)
00000130 26B8 0A7C move.l [A3], [0x00000A7C]
00000134 2078 0A78 movea.l A0, [0x00000A78 /* ApplScratch */]
00000138 B1FC 0000 0000 cmpa.l A0, 0x0
0000013E 6708 beq +0xA /* 00000148 */
00000140 47FA 07E6 lea.l A3, [PC + 0x7E6 /* 00000928, value 0x0, cstring "" */]
00000144 26A8 0016 move.l [A3], [A0 + 0x16]
label00000148:
00000148 2F38 0A80 move.l -[A7], [0x00000A80]
0000014C 6602 bne +0x4 /* 00000150 */
0000014E 588F addq.l A7, 4
label00000150:
00000150 4E75 rts
00000152 588F addq.l A7, 4
00000154 48E7 FFF8 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3,A4
00000158 3E2F 0038 move.w D7, [A7 + 0x38]
0000015C 51F8 0A5E sf [0x00000A5E /* ResLoad */]
00000160 600A bra +0xC /* 0000016C */
label00000162:
00000162 598F subq.l A7, 4
00000164 2F08 move.l -[A7], A0
00000166 A9A5 syscall GetResourceSizeOnDisk/SizeResource/SizeRsrc
00000168 201F move.l D0, [A7]+
0000016A A040 syscall ResrvMem/ReserveMem
label0000016C:
0000016C 3007 move.w D0, D7
0000016E 4EBA 03D6 jsr [PC + 0x3D6 /* 00000546 */]
00000172 676C beq +0x6E /* 000001E0 */
00000174 47FA FE9E lea.l A3, [PC - 0x162 /* 00000014, value 0x0, cstring "" */]
00000178 2688 move.l [A3], A0
0000017A 2010 move.l D0, [A0]
00000